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CTDSENSE = CTDRIVER SENSE MODE PROCESSING 16-SEP-1984 02:26:25 VAX/VMS Macro v04-00 : 1 
¥04-600 meer Tobe BS:F2iSs PANE YRS Recre voe lO uan:1 | aee a) 


-IF DF RTPAD 
TITLE CTSETRT - RTPAD/CTERM SET CHARACTERISTICS 


-TITLE CTDSENSE - CTDRIVER SENSE MODE PROCESSING 


-IDENT 'Vv04-000' 
-ENABLE SUPPRESSION 


MABABRBAARAAAASALALALALAALALAAALALALEASA LESSEE ESS S ESSER SAREE SARE SERS ESSERE ES SS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND coraee 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH pice AND WITH THE 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFT N 


‘ 
* 
27% ® 
7* * 
3* ® 
7* ® 
3* * 
7* ® 
3* ® 
7* ® 
2 + 
7* *® 
7* TRANSFERRED. _ 
;* ® 
;* * 
;* ® 
;* ® 
;* * 
he ® 
z® * 
;* ® 
;* * 
hg * 
Py 


4 
5 
6 
7 
8 
9 
10 
Y} 
13 
14 
15 
16 
18 
13 OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
21 
$$ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
0000 2 AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
i464 Se CORPORATION. 
0000 26 DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
0000 27 SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
3 
0000 30 RRR EERE 
0000 31 
0000 32 | 
0000 ee 
0000-34; 
0000 35 ; FACILITY: 
0000 36 ; . : | 
0900 Sf? 3 CTERM Remote terminal protocol driver 
0000 38 ; | 
0000 39 ; ABSTRACT: 
0000 40 ; . : 
0000 41; This module is called to map a characteristics item list received 
8508 4g : from the net into VMS terminal characteristics. 
0000 44 ; ENVIRONMENT: 
0000 45; 
0000 46 ; 
444 47; 
000 48 ;-- 
0000 49 ; 
i441 a9 3; AUTHOR: Jake VanNoy, CREATION DATE: 23-Aug-1982 
0000 5 ; MODIFIED BY: 
000084 
0000 22 ; v03-003 Os Jake 28-F EB-1984 
44 2$ 3 Use constant names in VeENS TAB table. 


ee 


CTDSENSE - CTDRIVER SENSE MODE PROCESSING he oe i -1 38? pereeige AX/VMS Macro V04-00 Page fy 


v04-000 


-SEP-19 ERTPAD SRCICTDSENSE .MAR; 1 
v03-002 JLV0288 Jak oY 28-JUL-1983 
Update symbols that “ident! y characteristics. 
v03-001 JLV0261 Jake VanNoy 26-MAY-1983 


Change baud rate tables to new format. 


00000000 
00000100 
00000200 


00000000 
00000004 
a4 
000000: 
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16-SEP-1984 02:24:25 VAX/VMS Macro 
~3Eb= $8¢ 68: §3 RTPAD.SRCJCTD 


.SBTTL DECLARATIONS 
: INCLUDE FILES: 


v04- 
SENS 


PRPAAAM 


: for protocol errors 


MACROS: 


-MACRO CHAR LABEL 
WORD type e'char_co 
WORD CAREC NSE vROOTIN 
char count = char_count + 
-ENDM = CHAR 
-MACRO BAUDTAB BPS 
WORD P 


“BYTE TT$C_BAUD_'BPS' 
.ENDM BAUDTAB 


“MACRO TERMTAB TERM VALUE 
.BYTE VALUE 


ponte /TERM/ 

-ENDM TERM TAB 

«MACRO SENSETAB CHAR 

. char_type!char 
-ENDM SENSETAB 


EQUATED SYMBOLS: 


phys tcot = ch$c_physicalas ; 0 leftshifted 1 byte 
ogical = ch$c_logicalas : 1 leftshifted 1 byte 
cterm = ch$c_ctermas : 2 leftshifted 1 byte 
TT_BUF = 0 
TT“CHAR1 = 4 
TT“CHAR2 = 8 
TT_IOSB = 0 


OWN STORAGE: 


~IF DF RTPAD 
-PSECT RTPAD,NOWRT 


EXTERNAL OUTBAND_NEW 


5 


has By 


1 3 
CTDSENSE = CTDRIVER SENSE MODE PROCESSING 1 ~$E0-1984 03:24:85 AX/VMS Macro V04-00 Page 4 | 
v04-000 DECLARATIONS “SEP-1984 03:14:35 CRTIPAD.SRCICTDSENSE.MAR; 1 (2) | 
00 124 .1FF 
0000 36 } 5 -PSECT $$$115_DRIVER,LONG | 
00 : ENDC 
0099 SENSE_TABLE: 
SS888880 S888 13) charctape,s,pyystea 
cnar_count = | 
0000 1 é CHAR INPUT_SPEED 31 
0004 134 CHAR OUTPUT_SPEED : ; 
9008 135 CHAR CHARACTER SIZE ; 
00C 136 CHAR PARITY_ENABLE : 4 
0010 137 CHAR PARITY TYPE : 5 
0014 138 CHAR MODEM_PR RESENT ; 6 
0018 139 CHAR AUTOBAUD DETECT : 7 | 
001C 140 CHAR MANAGENERT GUARANTEED ; 8 
0020 141 CHAR SWITCH_CHAR_1 7 9 | 
tr} 106 CHAR SWITCH_CHAR_2 : 10 
| 
00000100 0098 144 char_type = logical | 
00000001 o0¢8 163 char_count = 1 
0028 147 CHAR MODE WRITING ALLOWED 71 
doer 148 CHAR TERMINA wee : ¢ 
0030 149 CHAR TERMINAL” SUBTYPE : 
0034 150 CHAR OUTPUT_FCOW CONTROL 7 4 
0038 151 CHAR OUTPUT PAGE-STOP : 5 
003C 13¢ CHAR FLOW CRAR_PASS THRU 7 6 
0040 15 CHAR INPUT. FLO@_ CONTROL sf 
0044 154 CHAR LOSS -AOTIFTC CATION : 8 
0048 155 CHAR LINEWIDTH :9 | 
004C 156 CHAR PAGE_ LEN NGTH : 10 
0050 157 CHAR STOP ~tENGTH 311 | 
0054 158 CHAR CR_FILL 3 12 
ge gs IAT beat . 
0060 161 CHAR HORIZONTAL TAB : 15 
0064 16¢ CHAR VER RTICAL TAB : 16 
Fe 19 CHAR _FEE EB : 17 | 
00000200 006C 165 char_type = cterm 
00000001 ives 198 char_count = 1 
its 168 CHAR IGNORE_ INPUT 1 
0070 169 CHAR CHAR_ATTRIBUTES ; ; | 
0074 170 CHAR CONTROL_O PASS_THRU ; 
0078 = 171 CHAR RAISE_IRPOT 3 4 
007¢ 78 CHAR NORMAC_ECHO 3; 4 
9080 17 CHAR INPUT pESCAre ENABLE : 6 
084 174 CHAR OUTPUT_ESCAPE ENABLE :7 | 
goes 175 CHAR jeeyt count : 8 
08C 176 CHAR AUTO_PROMPT 79 
2094 7 CHAR ERROR. PROCESSING : 10 | 
FFFF 0094 155 «WORD -1 : End of List (any negative number) 
0096 =«:*1180 
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DECLARATIONS 


2 
SoOoooooooo 


OMDOOOOOODOOOOOOODO 
<«<dqaaeaetetaeacacacae 


BAUDTA 
- LONG 


x «<< 
ee ee 
aooonnoannanaanakdt= 
pm pm ee ee pm ee be bb be 
Ba i Se Nee ee ie ee ee ee ee ee ee ee ee 
OOMDODOOOOOOOOOOOD 


BAUD: 


SENSE_ 


WW Vu Cuno 
AOOOoodaat et 


; Table is in order for most Likely first 


w 
a 
- 
. 
ow 
_ 
oor NMMNe om o mw 
OOOO OMMIMCUMOrR wows worowronw 
SNe eK KKK RK NOR — MK MMe VOW 
| all aul aed uel uel ane anion “4a <q<aq<aq<aaaecor 
>>>>>>>>>>>> ee ee Se 
(eee eeeeeeees epee eee st 
PPAAAAABAAAAHA PAPA PAAPAPAAA 
(el auelL cell see al anealL al onal oat ol oll oe ee el el el ol cl oe 
Cel seet sel eal neal eel ae eee etl eee eee aoe ee el oe ce oe ee oe 
—OUM~T WN OPR- CO 
ees es ee eee So a . 
SOK NMMR NW * SOMuuuuwiuuuwnw © * © 2 sO MV * 
OOoOOOMWMIMAUIMOM £8 8 8 8 tt MOCuTOOWwoOwTOoONM 
FNS KKK KK NOK— — ARMAAPRARAABAAM RK MMR VAN 
ee ee ee ee ee ee ee ee oe 
PPP PR OP dalla P@ 
ADOOODOOOOMOOOMOMOAOMOOMOOOOOOOOOO®®DO 
@dtdddde deeded deeded eee eee eee 
i 
at = = = = = = = et ee Se Se eS Se St SS SS SS SS Se St SS 
eacacaacacacaacaacacacacacaacaacaac> 
Sd 
eh 
w 
tee 
a 
A 
— 
wow fete rertertearearteare 


= 
z e 
sz ° 
oO . 
= « 
—=— £ 8b 
—-_— = 
— | 
a. a 
a 
— 
ey YY 
- 
HH = 
@ 
‘i i « 
ee 
— | 
a @® 
<= w 
oe a” 
- re 
=60 OCU ec a 
7 ” 
| fo a 
s- e&o®e 
Ge a © 
=z a. 
~~ & a 
za = = 
> _ we 


We Th LOOM O Ef DW. OOS DVDWN GV VV VV VV VUNOWY EEK WTMNNOBOOG 
LMOOODOCVVVVV OOOWW. 6 OOD ce NINN SF TAA 


OOOCCOCOCCOCCOCCOCSGOCOCCOCOCOCSOCOCOC COCO OO8  & eH RR 
COOCSOOOOOOOSOSOSOOOSOSSOSOSSSSOSOSSOSOSOSOCOSCSOSOSOSOSCSOSOOSOOCOCOOOOOOOSOOOOSOSSO 


So 
o 


ON 
oo 


w 
w 
w 
w 
@ 
w 
w 
w 
ae 
w 
nw 
w 
w 
w 


K 3 
= CTDRIVER SENSE MODE PROCESSING 16-SEP-1984 24:25 VAX/VMS Macro V04-00 Page 
DECLARATIONS ets Yi 96:94 :§2 RTPAD.SRCJCTDSENSE .MAR; 1 : (3) | 

1 3h 
A Q1 «BYTE TPSC_MT_READ_CHAR ; message type 
$0 ; : -BYTE ; ia f 3 flags. | 
ie 
0 g ; Item List, for now, request everything. | 
01 £4 “ 
00000000 4 ¢2 char_type = physical 
01 47 SENSETAB ch$c_ph_in_speed ; INPUT_SPEED 
4 48 SENSETAB ch$c_ph_out_speed ; OUTPUT_SPEED 
1 49 SENSETAB ch$c_ph_char_size ; CHARACTER_SIZE 
01 50 SENSETAB ch$c_ph_parifty_enable ; PARITY_ENABLE 
01 51 SENSETAB ch$c_ph_parity_type ; PARITY_TYPE 
01 26 SENSETAB ch$c_ph_modem_present ; MODEM_PRESENT 
01 5 SENSETAB ch$c_ph_autobaud ; AUTOBAUD DETECT 
01 54 33: SENSETAB ch$c_ph_manage_guar ; MANAGEMENT GUARANTEED 
01 22 382 SENSETAB ch$c_ph_switchT 3 SWITCH_CHAR_1 
01 20 333 SENSETAB ch$c_ph_switch2 3 SWITCH CHAR 2 
4 ef 33 SENSETAB ch$c_ph_manage_ena ; MANAGERENT_ENABLED 
00000100 4 $28 char_type = logical 
01 261 SENSETAB ch$c_lg_mode_writing |; MODE_WRITING_ ALLOWED 
01 $66 SENSETAB ch$c_lg_term_bits ; TERMINAL_TYPE 
01 26 SENSETAB ch$c_lg_term_type ; TERMINAL SUBTYPE 
01 264 SENSETAB ch$c_lg_output_flow ; OUTPUT_FCOW_CONTROL 
01 265 SENSETAB ch$c_lg_page_stop ; OUTPUT_PAGE 
01 266 SENSETAB ch$c_lg_flow char_pass ; FLOW CAAR PASS THRU 
01 267 SENSETAB ch$c_lg_input_ flow : INPUT_FLOQ_CONTROL 
01 268 SENSETAB ch$c_lg_loss_fnotif ; LOSS_ROTIFICATION 
01 269 SENSETAB ch$c_lg_line_width ; LINEWIDTH 
01 5fo SENSETAB ch$c_lg_page_length ; PAGE_LENGTH 
01 71 SENSETAB ch$c_lg_stop_length ; STOP_LENGTH 
01 272 SENSETAB ch$c_lg_cr_fill : CRLFILL 
01 273 SENSETAB ch$c_lg_lf_fill $ OF PILL 
01 274 SENSETAB ch$c_lg_wrap ; WRAP 
01 275 SENSE TAB ch$c_lg_hor_tab ; HORIZONTAL_TAB 
01 276 SENSETAB ch$c_lg_vert_tab ; VERTICAL_TAB 
4 a SENSETAB ch$c_lg_form_feed : FORM_FEEB 
00000200 4 char_type = cterm 
01 Hi SENSETAB ch$c_ct_ignore_input ; IGNORE_INPUT 
01 36 333 SENSETAB ch$c_ct_char_att ; CHAR_ATTRIBUTES 
01 | SENSE TAB ch$c_ct_ctrlo_pass ; CONTROL _O PASS_THRU 
01 4 SENSE TAB ch$c_ct_raise input 3 RAISE_IRPOT 
01 85 SENSETAB ch$c_ct_normaT_echo 3 ECHO 
01 86 SENSETAB ch$c_ct_input_ésc ; INPUT_ESCAPE_ENABLE 
01 a? g23 SENSETAB ch$c_ct_outpuf_esc ; OUTPUT_ESCAPE_ENABLE 
1 88 SENSETAB ch$c_ct_input_count ; INPUT _COUNT_STATE 
1 89 SENSETAB ch$c_ct_auto_prompt ; AUTO_PROMPT 
3 ay SENSETAB ch$c_ct_error_processing ; ERROR_PROCESSING 
00000042 O15 35 CTPSK_SENSEBUF == .-CTPSAB_SENSEBUF : Size 
| 
j 
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CTDSENSE 
v04-00 CT_P - Map TSA into VMS “SEP-19 


ow 


S ro V04-00 Page § 
NS RTPAD.SRCICTDSENSE .MAR; 1 (3) | 
-SBTTL CT_POST_SENSE = Map TSA into VMS 
; Must map entire set of characteristics returned into VMS sense mode data 


| 
| 
Input: | 
Re - Address of CIP 

R9 = Address of 12 byte buffer 
R10 - Address of 8 byte buffer 
| 


- first longword of sense mode data : 
- first longword of sense mode characteristics 
= second longword of sense mode characteristics 


) 
) 
) 
0) - first longword of status 
0) - second longword of status 


Characteristics returned: (R9) 


+ 

{| page width t type i! class | 
poceewce powceeees $eoeenne peooceoe + 
tlength | characteristics H 
+teececece peewee eo}oceeccoen ¢eoeoeecece + 
H characteristics ' 
oe foe oce toeoewcee pooeeenn + 

I0SB: (R10) 

teoeeecece teewecere fee come t-cceece + 

tR speediT speed: status H 

toeoeence $oewcece $oeowcene tesccene= + 

: OO tparity tLF fillicrR fill 

teewnoee teoecneee toeoceoce focccceen + 


TOTO TOTO Te Tere rere rererererererererererererererererererererer 
t 
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? 
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6 
7 
8 
9 
0 
1 
5 
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5 
6 
7? 
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9 
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1 
5 
4 
5 
6 


HAR_MSG: : ; RTPAD ENTRY 
OST_SENSE:: ; CTDRIVER ENTRY 


MOVZWL CTPSW_MSGSIZE(R2) ,R1 ; Fetch size of buffer 


SP OOOOOOOOOOOOOODOOODOOOOOOODODOOOOODODOODOOOOOOOOOOOO I 
NATTA nn | (CT? 


MOVAB CTPS$W7CH PARAM(R2),R2 ; Set address of first characteristic 
ADDL »R2,-(SP) : Save end address on stack 
SUBL2 #3,(SP) ; *** fudge, check this ** 


7 
8 
9 
0 
4 
5 
MOVB #0C$_TERM, TT_BUF (R9) ; Set terminal class 
0 
4 


oo oonwow 
oOo jNermo 


MOVW  § #SSS"NORMAL,TT_IOSB(R10); Set status 


: 


10$: 
(SP) 


§ 
2)+,R6 
NSE_TABLE ,R7 


Hit end of List yet? 
Branch if so 

Get parameter 

Get table address 


CMPL 
GEQ 

MOVZWL 

MOVAB 
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CTDSENSE - CTDRIVER SENSE MODE PROCESSING 16-SEP-1984 02:24:25 VAX/VMS Macro V04-00 Page ar 
Gonsb08 CT_POST_SENSE = Map TSA into VMS ets 7 §g:92:82 RTPAD.SRCICTDSENSE.MAR; 1 ° (3) 
1C 2? 20$: 
87 56 B1 OIC § CMPW R6 (R7)+ ; Compare to Ho entry 
OD 13 1¢ 5 BEQL ©: 30 : Branch if match found 
87 «6B 1C 28 TSTwW (R7)+ 3; Advance gelnter past routine 
F7 Ss ‘18 34 2 BGEQ 20$ ; Loop if greater than or equal to zero 
1¢B 61 ; PANIC : ‘invalid sense mode returned’ 
ite $6 25$ MINOR_ERROR : Increment error count, then exit 
8 B 1CF 64 TSTL (SP)+ ; throw away end address 
O1C 1 10} o? BRW POST_SENSE_EXIT 3 exit code 
Biba 88 ; Dispatch to routine 
1D4 68 ; 
1D4 $9 S0s: 
56 OOOOO1ES'EF 9E 01D4 0 MOVAB SENSE_ROUTINES,R6 : 
57 67 3C 0108 71 MOVZWL (R7),R7 : get "peut ine address 
57 56 CO O1DE rg ADDL2 R6,R? ; Add offset to base for routine address 
67 16 O181 37 JSB (R?) : jsb to routine 
DO 3611+ =~O1E3 74 BRB 10$ ; Do next parameter 
O1E5 75 
O1E5 76 ; ¢ 
O1E5 77 ; ALL these routines have RO,R1,R4,R6-R8 as scratch 
O1E5 378; 
01E5 379 
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CTDSENSE = CTDRIVER SENSE MODE PROCESSING 16-SEP-1984 224: AX/VMS Macro V04-00 
Fon 508 CT_POST_SENSE = Map TSA into VMS eet 8g: 94: ¢2 RTPAD.SRCJIC tps SENSE .MAR;1 
if 1 SENSE_ROUTINES: 
3 § ; physical 
1E 5 INPUT ata 3; physical 1 
50 82 80 183 g (R2)* RO : Get speed 
Ce 1E BSuB + SPEED 3 map into TT$C_BAUD_xxxx 
03 A 50 90 plea 43 MOVB TT_IOSB+3(R10) 3; set receive speed 
0S OEE 9 RSB 3; Return 
O1EF 90 
O1EF 91 OUTPUT oe ; physical 2 
50 Be 90 O1EF 35 (R2)+,RO : Get speed 
05 10 O1F2 39 BSoB GET SPEED t map into TT$C_BAUD_xxxx 
02 A 50 90 O1F4 94 MOVB RO, TT_I0SB+2(R10) 3 set transmit Speed” 
05 bite e RSB ; Return 
pee 397 3; Local routine to map speed into TT$C_BAUD rates 
O1F9 38399 : Input: ‘ 
O1F9 400 : RO = baud rate in BPS 
O1F9 401; 
O1F9 rt 3; Output: 
O1F9 840 : RO - Baud rate in TT$C_BAUD_xxx terms 
O1F9 404 
O1F9 405 GET _SPEED: 
51 FE99 CF 9E O1F9 406 OVA SENSE_BAUD,R1 ; Get table 
O1FE 407 110$: 
81 50 61 O1FE 408 CMPW RO, (R1)+ 3; compare 
08 15 9201 409 BLEQ 1208 
81 95 0203 410 TSTB (R1)+ 3; Advance 
F7 12 0205 411 BNEQ 110$ : Branch if not zero 
50 10 90 0207 a16 MOVB #TT$C_BAUD_19200,R0 ; Assume 19200 if > 19200 
05 og 0A 41 RSB 3; Return 
50 61 90 Q20B8 414 120$: MOVB (R1),RO0 ; Fetch baud rate symbol value 
05 O20E 415 RSB ; Return 
O20F 416 i 
O20F 417 CHARACTER SIZE: 3; physical 3 
O20F 418 .IF DF RTF O 
020F 419 BICL #TTS$M_EIGHTBIT,- ; 
020F $59 TT_CHAR1(R9) 3: Set characteristic 
020F 421 .ENDC 
82 07 861 Os oe 4 § CMPW #7, (R2)+ ; Character size 
08 18 Q212 4 BGEQ 10$ : exit if less than or equal to 7 
00008000 8F c8 8 14 424 BISL #TT$M_EIGHT hel 
04 Ad 1A 425 TT_CHAR1(R9 : Set characteristic 
05 0 if ? § 10$: RSB ; Return 
1D 428 PARITY_ENABLE: ; physical 4 
1D 429 .IF DF RTPAD 
1D 430 BICB #TTSM_PARITY,- 
1p 4 1 ts. TT_105B+6(R10) : Set parity enabled 
50 8¢ 90 1b 4 5 MOVB (R2)+,RO 3; Get boolea 
05 9 9 434 BLBC }~=—-«aRO, 108 t Granth U7 not enabled 
40 BF «BB 435 BISB #Tf$M_PARITY,- 
06 AA 6 4 : TT_10SB+6(R10) ; Set parity enabled 
05 437 10$: RSB ; Return 
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NSE MODE PROCESSING 1 4 4:25 VAX/VMS Macr 4-00 Page 
Map TSA into VMS g-3¢ 71982 Be: 4 :§2 FRIPAD: SRCIC PDSe ORSeOMAR: 1 ° 
PARITY_TYPE: 3 physical 5 
-IF DF RTPAD 

BICB #TT$M_ODD,- 
va TT_10SB+6(R10) ; Assume even parity 
i MOVZWL (R2)+ ; Get parity number 
CMPW #ch$c eee, odd,R0O 3; Odd? 
BNEQ i I 3; If not, exit 
BISB #TT > 
TT 1oSeeetR10) ; Set odd parity 
10$: RSB ; Retu 
se a ee 3; physical 6 
7 #<TTSM_MODEM 
—_ TTSM SREMOTES, rT _CHAR1(R9) ; Set modem and remote bits 
; MOVB — (R2) +, RO : Get Boolean 
BLBC R ; Branch if not enabled 
BISL #<TT$M_MODEM 
TTSM SREMOTED, IT -CHAR1(R9) Set modem and remote bits 
10$: RSB : heture 
oy far a a 3; physical 7 
; #TT2$M_AUTOBAUD,- 
—_ TT_CHAR2(R9) ; Set autobaud 
‘ MOVB (R2)s RO ; Get Boolean 
BLBC RO,10 ; Branch if not enabled 
BISL § #TT2$M_AUTOBAUD,- 
TT_CHAR2(R9) 3; Set autobaud 
10$: RSB ; Return 
MANAGEMENT GUARANTEED: : on yf toe Bel 8 
4 moVB (R2)+,RO : Get Bool 
BLBC RO, 10$ : Branch 17 net ensbted 
108: RSB ; Return 
SWITCH_CHAR_1 : parerse 9 
9 sed IGNORE _STRING 3; Ignore this string data 
; Return 
SWITCH_CHAR 2: 3 pid 10 
psee IGNORE _STRING ; Ignore this string data 
e eturn 
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CTDSENSE = CTDRIVER SENSE MODE PROCESSING 16-SEP-1984 02:24:25 VAX/VMS Macro v04-00 Page 12. CTD 
v04- CT_POST_SENSE = Map TSA into VMS et Og: 44:82 RTPAD.SRCICTDSENSE .MAR; 1 ° 3) v04 
$ ang ; logical | 
60 489 MODE_WRITING ALLOWED: : logical 1 
50 82 90 6 490 “= MOVB™ = (R2) +, RO : Get Boolean 
00 c9 63 491 BLBC =—_- RO, 108 : Branch if not enabled | 
’ @ 8 236 10$: RSB 3; Return 
026 49 
0267 494 TERMINAL_TYPE: ; logical 2 
0367 495 | 
0267 496; bit mask is: 
0267 497; 0 = Unknown/known | 
8 44 $38 : 1 = scope/hardcopy 
50 82 3C 0267 500 MOVZWL (R2)+,R0 3; Get characteristic | 
00001000 8F C8 O26A 501 BISL #TTS$M_SCOPE,- 
4 Ad 0270 208 TT_CHAR1(R9) ; Set scope | 
08 50 01 #+£E€O 0272 50 BBS #CTPSV_CH_SCOPE,RO.10$ ; Branch if scope 
00001000 8F CA 0276 504 BICL #TT$mM_SCOPE,- | 
04 Ad 027C 505 TT_CHAR1(R9S ; Clear scope 
O27E 506 | 
O27E 507 ; *** unknown? 
O37E 508 | 
0450 00 £0 O27E 509 10$: BBS #CTPS$V_CH_KNOWN,RO,20$ ; Branch if known 
01 a9 00 90 0282 510 MOVB #TT$_URNKNOWN,TT_BUF+1(R9S ; Set terminal type 
05 0286 511 20$: RSB ; Return 
0287 218 
0287 513 TERMINAL_SUBTYPE: 3: logical 3 
56 82 9A 0287 514 MOVZBL (R2)+,R6 : Get length of string 
01 12 028A 515 BNE 10$ ; Continue if not 0 
05 O028C 516 RSB ; Return 
028D 517 10$: d 
57 52 00 O28D 518 OVL R2,R7 ; Get address of string 
52. 56 CO 0290 519 ADDL2 »R2 ; Update pointer 
040C 8F BB 0293 520 PUSHR #*M<R2,R3,R10> ; Save registers 
58 FE2F CF 9E& 0297 521 MOVAB CT$AB_TERM_TABLE,R8 : Address of table 
54 04 029C 256 CLRL R4 ; Zero length 
5943 523 208: 
58 54 CO O29E se ADDL2 R4,R8 ; Get next entry 
01 a9 88 90 O2A1 525 MOVE (R8)+, TT_BUF+1(R9) ; Set terminal type — 
OE 13 O2A5 2$8 BEQL 0$ : branch if end of List 
54 88 9A OQ2A7? 527 MOVZBL (RB)+,R4 ; Get length 
54 56 91 O2AA 528 CMPB R6,R4 ; compare Lengths 
EF 12 O2AD 529 BNEQ 20 3 not equal, loop 
68 67 56 29 O2AF 2 0 CMPC3 RG (R7), (RB) ; Compare 
E9 12 psB3 1 BNEQ 20$ ; Loop if not equal | 
| 
0985 338 3; Terminal type match | 
6 8? é 5 308 ASSUME TTS_UNKNOWN EQ 0 3 assume for end of table code | 
040C 8F BA ° Be 5 ; POPR #*M<R2,R3,R10> ; Restore registers | 
05 89 9 RSB ; Return 
BA 40 | 
BA 541 | 
BA $s OUTPUT_FLOW CONTROL: ; logical 4 | 
02BA 543 .IF DF-RTPAD | 
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CT_POST_SENSE = Map TSA into VMS -SEP=-1984 2:14:55 RTPAD.SRCIJCTDSENSE.MAR; 1 (5). 
BA 44 BICL #TTS$M_TTSYNC,=- 
BA 45 TT_CHAR1(R9) ; Set tt sync 
BA ‘3 ~ENDC 
50 8 90 BA 4 MOVB (R2)+,RO ; Get Boolean 
04 E9 O2BD 48 BLBC ~—_- RO, 108 : Branch if not enabled 
20 «(8 cg 4 BISL #TT$M_TTSYNC,- 
04 Ad C 50 TT_CHAR1(R9) ; Set tt sync 
05 ee 2] 10$: RSB 3; Return 
0 £2 2¢ OUTPUT_PAGE_STOP: : logical 5 
02Cc5 54 .I1F DF-RTPAD 
8 Ce 55 ICL #TTSM_HOLDSCREEN,=- 
8 ce 2$ — TT_CHAR1(R9) ; Set hold screen 
50 82 90 02C5 58 MOVB (R2)+,RO0 : Get Boolean | 
08 50 €9 02C8 59 BLBC RO, 10$ ; Branch if not enabled | 
00004000 8F C8 O2cB 560 BISL  #Tf$M_HOLDSCREEN,- | 
04 A9 0201 61 TT_CHAR1(R9) ; Set hold screen 
05 02D3 6 10$: RSB 3; Return 
0204 6 e 
02D4 64 FLOW_CHAR_PASS_THRU: ; logical 6 
50 82 90 02D4 65 mOvB (R2)+,RO ; Get Boolean 
0050 £9 0207 566 BLBC =. RO, 108 ; Branch if not enabled | 
05 O2DA 67 10$: RSB ; Return 
0208 68 | 
0208 69 INPUT FLOW CONTROL: ; logical 7 
02DB 570 .IF DF RTPAD | 
020B 571 BICL § #TTSM_HOSTSYNC,- | 
0208 ie TT_CHAR1(R9) : Set hostsync 
0208 573 .ENDC | 
02DB8 74 MOVB (R2)+,R0 ; Get Boolean 
O2DE 75 BLBC RO, ; Branch if not enabled 
02E1 76 BISL #TTSM_HOSTSYNC,- 
02E3 77 TT_CHAR1(R9) ; Set hostsync 
02E5 78 10$: RSB ; Return 
02E6 79 : 
02E6 80 LOSS_NOTIFICATION: ; logical 8 
02E6 81 MOVB (R2)+,RO0 3; Get Boolean 
O2E9 8 BLB RO, 10$ ; Branch if not enabled 
O2EC 83 10$: RSB ; Bell on loss data? 
O2ED 84 : 
O2ED 85 LINE_WIDTH: ; logical 9 
O02ED 56 MOVW (R2)+,TT_BUF +2(R9) ; Line width 
8 fy fi RSB ; Return | 
| 
03t3 89 PAGE_LENGTH: ; logical 10 
se 90 CVTWB = (R2) +, TT_CHAR1+#+3(R9) 3 page Length 
8 FS 4! ; Return | 
8 F7 38 STOP_LENGTH: ; logical 11 
F7 94 TSTW (R2)+ : Ignore for now 
O2F9 95 RSB 3; Return 
FA 38 
FA 97 CR_FILL: ; logical 12 
FA 98 .IF DF RTPAD 
O2FA 99 BICL 
O2FA 00 
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CTDSENSE = CTDORIVER SENSE MODE PROCESSING 16-SEP 4 4:25 VAX/VMS Macro V04-00 Page 14 
v04-000 CT_POST_SENSE = Map TSA into VMS -SEP ~}38% 8g: ef :§2 RTPAD.SRCJCTDSENSE .MAR; 1 . (5) 
FA 601 .ENDC 
04 AA fe 3 FA O06 CVTwWB (R2)+,TT_10SB+4(R10) 
0 1 a3 60 BEQL 10$ ; Branch if zero | 
00000400 8F C 0 604 BISL #TT$M_CRFILL,=- 
04 A 0 88 605 TT_CHAR1(R ) 
05 030 6 $ 10$: RSB 3; Return 
$309 COB LF_FILL logical 13 | 
H 3 logica 
0309 609 .IF DF RTPAD 8 | 
0309 610 BICL #TTSM_LFFILL,- 
0309 611 TT_CHAR1(R9) 
B308 o1¢ .ENDC 
05 AA 82 33 9 61 CVTWB (R2)+,TT_10SB+5(R10) 
08 13 0300 614 BEQL 10$ ; Branch if zero 
00000800 8F CB O30F 615 BISL #TTSM_LFFILL,- 
04 Ad 0315 616 TT_CHAR1(R9) 
05 0317 «4617 108 RSB ; Return 
0318 618 
0318 619 WRAP: ; logical 14 
0318 630 IF DF RTPAD 
0318 621 BICL #TTSM_WRAP 
0318 oce TT “CHART (R9) ; set wrap 
0318 623 .ENDC 
82 03 B1 0318 624 CMPW #3,(R2)+ ; Get_wrap (value 1 to 4) 
08 18 0318 625 BGEQ =: 10 : if 3 or less, no wrap 
00000200 8F (8 O31D  6¢6 Beer aTTSM_wRaP,- 
04 A9 0323 627 TT_CHAR1(R9) > set wrap 
05 0325 628 10S: RSB 3; Return 
0326 629 
0326 630 HORIZONTAL_TAB: ; logical 15 
0326 631 .IF DF RTPAD 
b35¢ O36 #TTSM_MECHTAB,- 
0326 8663 TT_CHAR1(R9) : Set mechtab 
0326 634 .ENDC 
82 01 481 0326 635 CMPW #1, (R2)+ : mechtab? 
08 12 0329 636 BNEQ 108 : Branch if no 
00000100 8F C8 b3¢e 637 BISL #TTSM_MECHTAB,- 
04 Ad 0331 638 TT_CHAR1(R9 : Set mechtab 
05 0333 639 10$: RSB 3; Return 
0334 640 
base 641 VERTICAL_TAB: ; logical 16 
82 B5 0334 at) TSTwW (R2)+ : ignore 
05 0536 64 RSB : Return | 
§33s 645 FORM FEED: : logical 17 
0337 os6 - IF oF RTPAD 
83 7 64 BICL #TTSM_MECHFORM,- 
337 ©9648 TT_CHAR1(R9) ; Set mechform 
0337 649 .ENDC 
82 01 8B1 b3 7 650 CMP #1,(R2)+ 3 mech form? 
08 12 A 651 BNEQ 108 : Branch if no 
00080000 8F C8 83 C 626 BISL #TTSM_MECHF a. 
04 Ad 342 38665 TT_CHAR1(R9 ; Set mechform 
05 0344 654 10$: RSB ; Return 
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v04- CT_POST_SENSE = Map TSA into VMS g-3é =}982 8g: Te §2 RTPAD.SRCJIC TDSENSE.MAR: 1 9 
4 656 ; cterm 
is 3) IGNORE_ INPUT t 1 
a : 3; cterm 
50 B¢ 90 8 45 g38 MOVB (R2)+,R0 ; Get Boolean 
00 5 7 48 660 BLBC RO, 10$ ; Branch if not enabled 
5 8 Pr pod 10$: RSB ; Return 
034C 68 CHAR_ATTRIBUTES: ; cterm 2 
034C 664 
034C 665 .IF DF RTPAD 
034C 666 
part 667 MOVAB OUTBAND_NEW,RO ; Get temporary mask 
034C 668 MOVZBL (R2)+,RT : get character 
034C 669 MOVZBL (R2)+,R6 ; Get mask 
034C 670 MOVZBL (R2)+,R7 ; Get attribute 
034C 671 CLRL R4 3; Clear 
034C ore BBSS R1,R4,5$ 3; turn character into mask 
034C 673 5$: 
034C 674 EXTZV #CTP$V_CH_00,- 
034C 675 #CTP$S_CH_00,R6,R8 ; Fetch isolate mask 
034C 676 CMPB #CTPSM_CH_00,R8 ; Must be full mask 
Ore ort BNEQ 100$ 3; exit *** = other things to handle here 
034C 679 EXTZV #CTP$V_CH_00,- 
034C 680 #CTP$S_CH_00,R7,R8 ; Fetch attributes 
034C 681 CMPB #CTPSC_CH_CANCEL,R8 3; Cancel? 
034C 68 BNEQ 10$ ; br if no 
034C 68 BICL R4,00B_EXCLUDE (RO) ; clear them all... 
034C 684 BICL R4,00B_INCLUDE (RO) 
034C 685 BICL R4 ,OOB_ABORT (RO) 
034C 686 BRB 106$ 
034C 687 10S: 
034C 688 CMPB #CTPSC_CH_ICLEAR,R8 3 sumed tore clear? 
034C 689 BEQL ; br if yes 
034C 690 CMPB #CTPSC_CH_DCLEAR,R8 c getgeree clear? 
034C 691 BNEQ 30$ ; br ifn 
034C 692 20$: 
034C 69 3 
034C 694 3 set up abort out of band 
034C 695 . 
034C 696 BISL  R4,00B_ABORT(RO) ; Set abort flag 
034C 697 BRB 106$ 
034C 698 30$: 
oeee 99 CMPB +9 be CH_HELLO,R8 ; hello? | 
034C 00 BNEQ 100$ 3 no, csanity check really) 
034C 701 BBC #CTP$V_CH_I 1-RG.40 03 ; Branch if include not specified 
034C Ne BBC #CTP$V_CH_I,R : Branch if include not required 
034C 70 BISL R4,00B7 ~fNeeoDE (ROD : Set include bit 
034C 704 BRB 106$ 
beet oye 40$: 3 
Baec at} BISL R4,00B_EXCLUDE (RO) ; set exclude bit 
34C 18 ; Handle out-of-band discard (D) 
4C 709; 
4C 710 100s: 
4¢ 711 BBC #CTPS$V_CH_D,R6,200$ : Skip if not in select mask 
34€ 0712 BICL R4,00B “DISCARD R RO) : Assume no discard output 
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CTDSENSE - CTDRIVER SENSE M O0F PROCESSING © 16-SEP-1984 02:24:25 VAX/VMS Macro V04-00 Page 16 | CTD 
v04- CT_POST_SENSE = TSA into VMS g- -SEP ety y bg:4% ‘$2 RTPAD.SRCICTDSENSE.MAR; 1 . (6). v04 
034C 713 BBC #CTPSV_CH_D,R7,200$ ; Skip if not in select mask | 
4C 714 BISL R4,00BDISCARD(RO) ; Set discard output 
rt ak 200$: | 
ie ay ; Handle control character echoing (EE) 
034C 719 EXTZV #CTP$V_CH_EE,- 
034C 720 Ais ate “EE,R6,R8 3 Fetch isolate mask 
034C 721 cMPB #3 RB : specified? 
O34¢ 7 : BNEQ 3006$ + nope | 
| ae BICL R4 ,OOB_ECHO(RO) 3 assume no echo (Like “T) 
O34¢ 724 EXTZV actp P$V"CH_EE,- 
034C 725 #CTP$S_CH_EE,R7,R8 3; Fetch real data 
034C 726 CMPB #CTPS$C_CH_ “ECHONONE , R8 : echo none? 
034C 727 BEQL yes, cont inue 
034C 728 CMPB #CTPSC_CH_ECHOSTANDARD ,RB 3 echo STANDARD? 
034C 729 BNEQ 300$ 3; branch if oth 
034C 730 BISL R4,00B_ECHO(RO) ; set standard echo” (Like *C) 
034C 731 300$: 
034C 136 : 
034C 733 ; *** code not done for 
034C 734; enable/disable special character (F) 
034C 735 
034C 736 RSB 3; Exit 
034C 737 
034C 738 JIFF ; CTDRIVER 
034C 739 
52 03 CO O034C 740 ADOL #3,R2 ; Skip (should never really get here) 
05 O34F 741 RSB | 
0350 pee 
0328 743°. ENDC 
0350 744 
0350 745 CONTROL_O_PASS_THRU: : cterm 3 
50 82 90 b328 746 mMOvB (R2)+,R0 3; Get Boolea 
0050 £9 0353 747 BLBC ~—RO, 108 S Grench 1? nat enabled 
05 0356 748 10$: RSB 3; Return 
0357 749 
0357 750 RAISE yes : cterm 4 
0357 751 .IF DOF R 
0357 £36 #TTSM_LOWER 
0357 75 TT_CHAR1(R9 ¥ 3; Set convert lower 
0357 754 .ENDC 
50 82 90 0357 #4755 MOVB (R2)+,RO 3; Get Boolean 
08 50 Fe Been £36 BLBS R :; Branch if not enabled 
00000080 BF C Sp 75 BISL #TT$M_LOWER,- 
04 A9 636 758 TT_CHAR1 (R95 ; Set convert lower 
05 036 759 10$: RSB 3; Return 
Baee 760 
66 761 NORMAL_ECHO: 3; cterm 5 
8 66 166 IF DF-RTPAD | 
66 76 BICL #TT$M_NOECHO,- 
66 764 TT_CHAR1(R9) ; Set noecho 
66 765 .ENDC 
50 2 90 $8 76 MOVB (R2)+,RO ; Get Boolean 5 
04 50 33 6 76 BLBS RO, 10$ ; Branch if enabled (note opposite sense) 
be CC 6C 768 BISL #TTSM_NOECHO,- | 
04 Ad 6— 769 TT_CHAR1(R9) ; Set noecho 
| 
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V042000 CT_POST_SENSE = Map TSA into VMS ety 7 bg: 48: 82 RTPAD.SRCICTDSENSE.MAR; 1 ° (6) v04 
05 9 £79 10$: RSB 3; Return | 
71 oe INPUT_ESCAPE_ENABLE: : cterm 
71 +773 OUTPUT_ESCAPE_ENABLE: 3 cterm 
71 774 IF DF-RTPAD | 
71 «+775 BICL #TT$M_ESCAPE,- 
6 71 £06 TT_CHAR1(R9) | 
71 777 .ENDC 
50 8¢ 90 0371 778 OvB (R2)+,R0 ; Get Boolean 
0450 €9 0374 779 BLBC ——RO, 108 : Branch if not enabled 
08 C8 0377 780 BISL #Tf$M_ESCAPE,- 
04 A9 0379 78 T_CHAR1(R9) | 
05 7B 7 ¢ 10$: RSB ; Return | 
037¢ «= 78 | 
037C 784 INPUT_COUNT STATE: : cterm 8 
82 BS 037 785 TST (R2)+ : Ignore 
05 O37E 786 SB 
O37F 787 
037F 788 AUTO_PROMPT: : cterm 9 
O37F 789 .IF BF RTPAD 
O37F 790 BICL #TTSM_SCRIPT,- 
037F 46 791 TT_CHAR1(R9) 
037F 792 .ENDC | 
50 82 90 O37F 79 MOVB (R2)+,R0 : Get Boolean 
08 50 £9 0382 79% BLBC _—RO, 108 : Branch if not enabled | 
00000040 8F C8 0385 795 BISL #TT$M_SCRIPT,- 
04 A9 0388 796 TT_CHAR1(R9) 
05 038D 797 10$: RSB ; Return 
O38E 798 
O38E 799 ERROR_PROCESSING: : cterm 10 
50 82 90 O38E 800 MOVB (R2)+,R0 : Get Boolean 
00 50 €9 0391 801 BLBC — RO, 108 : Branch if not enabled 
05 0394 Hh) 10$: RSB : Return 
0395 80 
0395 804 
0395 805 IGNORE_STRING: 
50 82 9A 0395 806 MOVZBL (R2)+,RO0 ; Get length of string 
52 50 cO 0398 807 ADDL2 =RO,R2 ; Add to address 
05 0398 808 
039¢ 809 
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CTDSENSE 19-SP-198% 0¢ $4333 Y X/VMS Macro V04 
Symbol table ~SEP-1984 4: TPAD. SRCIJCTDSE 
AUTOBAUD_DETECT 00000246 08 FORM_FEED 0000337 R 
AUTO_PROMPT BE088 7F GET SPEED 8 1F9 R 
CHSC_CTERM = 0000 HORTZONTAL_TAB 3 R 
CHSC_CT_AUTO_ PROMPT = 00000 IGNORE_INPOT 3 45 R 
CHSC_CT_CTRLO_PASS = OP O88 IGNORE STRING 95 R 0 
CHSC_CT_ERROR- PROCESSING = 8 A INPUT_COUNT STATE 0 7C R 0 
CHSC_CT_IGNORE_ INPUT = 00000001 INPUT_ESCAPE_ENABLE 0000371 R 0 
CHSC_CT_INPUT_COUNT = 00000008 INPUT_FLOW CONTROL 4 4tF 4 R 0 
CHSC_CT_INPUT = 4 INPUT" SPEED aa 2 0 

$C_CT_NORMA’ = 0000000 LF_FICL 0000309 R O¢ 
CHSC_CT_RAISE_INPUT = 00000004 LIRE_WIDTH HOO R ee: R 0 
CHSC_LG_CR_FICL = ae LOGICAL 90008) 0 
CHSC_LG_FLOW_CHAR_PASS = 00000006 LOSS_NOTIFICATION 0 56 R 02 
CHSC_LG_FORM FEED = 00000011 MANAGEMENT GUARANTEED 00000251 R 02 
CH$C_LG_HOR_ TAB = 0000000F MODEM _ PRESENT 00000237 R 02 
CHSC_LG_INPOT FLOW = 00000007 MODE _QRITING_ALLOWED 00000260 R 02 
CHSC_LG_LF FIC = 0000000D NORMAL_ECHO 00000366 R 02 
CHSC_LG_LIRNE_WIDTH = 00000009 OUTPUT_ESCAPE_ENABLE 00000371 R 02 
CHSC_LG_LOSS_NOTIF = 00000008 OUTPUT_FLOW_CONTROL aise ta & 02 
CHSC_LG_MODE WRITING = 00000001 OUTPUT_PAGE_ STOP 000002C5 R 02 
CH$C_LG_OUTPOT _F = 00000004 OUTPUT” SPEEB QOOOOIEF R 02 
CH$C_LG_PAGE_LENGTH = Q000000A PAGE 000002F2 R 02 
CHSC_LG_PAGE_STO = 00000005 PARITY_ENABLE 0000021D R 02 
CHSC_LG_STOP_LENGTH = 00000008 PARITY_TYP 00000229 R 02 
CHSC_LG_TERM_BITS = 0000000 PHYSICAL = 44444 44 
CHSC_LG_TERM_TYPE = 0000000 POST SENSE _EXIT 0000039C R 02 
CHSC_LG_VER = 00000010 RAISE_INPUT 00000357 R 02 
CHSC_LG_WR = 0000000E SENSE _BAU 00000096 R 02 
CHSC_LOGICAL = 00000001 SENSE_ROUTINES QOOOO1ES R 02 
CHSC_PARITY_ODD = 00000002 SENSE TABL 00000000 R 02 
CHSC_PHYSICAL = 00000000 SS$_NORMAL = 00000001 
CHSC_PH_AUTOBAUD = 00000007 STOP_LENGTH 000002F7 R 02 
CHSC_PH_CHAR_SIZE = 00000003 SWITCH _CHAR_1 00000258 R 02 
CHSC_PH_IN_SPEE = 00000001 SWITCH CHAR 2 0000025C R 02 
CHSC_PH_MODEM_PRESENT = 00000006 TERMINAL_SUBTYPE 00000287 R 02 
CH$C_PH_OUT_SPE = 00000002 TERMINAL TYP 00000267 R 02 
CHSC_PH_PARTTY_ENABLE = 00000004 TT$C_BAUB_11 = 00000003 
CHSC_PH_PARITY_TYPE = 00000005 TT$C_BAUD_1200 = 00000008 
CHARACTER_SIZE seit he 02 TT$C_BAUD_ 134 = 00000004 
CHAR_ATTRIBUTES 0000034C R 02 TT$C_BAUD_150 = 00000005 
CHAR_COUNT = 00000008 TT$C_BAUD_1800 = 00000009 
CHAR_ TYPE = 4 C44 TT$C_BAUD_ 19200 = 00000010 
CONTROL_O_PASS_THRU 00000350 R 02 TT$C_BAUD_ 2000 = 0000000A 
CR_FI poner A a Og TT$C_BAUD_ 2400 = 00000008 
CTSAB_TERM_TABLE QOOOOCA RG 0 TT$C_BAUD_ 300 = 00000006 
CTERM = a's ta 44 TT$C_BAUD_ 3600 = 0000000C 
CTPSAB_SENSEBUF 000015D RG 02 TT$C_BAUD_ 4800 = 0000000D 
CTP$C_AT_READ_CHAR = 0000000A TT$C_BAUD_ 50 = eae 
CTP$K_SERSEBUF = eae od G TT$C_BAUD_ 600 = Bae8 007 
CTP$V_CH_K = 30080 TT$C_BAUD_ g00 = BOONE 
CTP$V~CH_ SCOPE = 00088 1 TT$C_BAUD_7 = 0000000 
CTP$W_CH-PAR = 00000: c TT$C_BAUD~ 9600 = age 
CTPSW_MSGSIZE = 000000 TTSM_CRFICL = 000004 
CT_POST_ SENSE 009 19F RG 02 TTSM_EIGHTBIT = Ban8 $ 

c$_TERA z Qe TTSM_ESCAPE = 000 
ERROR_PROCESSING 088 8E R 08 TTS$M_HOLDSCREEN = i 00 
FLOW_CHAR_PASS_ THRU 0000204 R 0 TTSM_HOSTSYNC = 00000010 
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TTSM_LFFILL = 6 4 
TTSM_LOWER 2 
TTSM_MECHFORM = 000800 
TTSM_MECHTAB = 1 
TTSM_MODEM = $8 
TTSM_NOECHO = 44 
TTSM_ODD = 000000 
TTSM_PARITY = 4844 4 
TTSM_REMOTE = 0000 § 
TTSM_SCOPE = 00001000 
TTSM_SCRIPT = 00000040 
TTSM_TTSYNC 2 Boho os 
TTSM_ WRAP = 000002 
TT$_CA100 = 000000 
TT$_LAI2 = 00000024 
TIg-LAge = 00000025 
TTS_LA = 00000022 
TT$_LA36 = 000000 ! 
TTS_LA38 = 000000 
TT$_LQ°02 = 00000026 
TTS_UNKNOWN = 00000000 
TT$_VK100 = 00000002 
TT$_VT05 = 00000001 
TT$_VT100 = 00000060 
TT$_VT101 = 00000061 
TT$_VT102 = 0000006 
TT$_VT105 = 0000006 
Te aNt lg? = 00000064 
TT$_VT131 = 00000065 
VTE Nts = 00000066 
TT$_VT17 = 00000003 
TT$_VT200_SERIES = Q000006E 
Lb = 00000040 
TT$_vT5 = 00000041 
TT2$M_AUTOBAUD = sie'ia'a tg 
TT_BUF = 0000000 
TT_CHAR1 = 00000004 
TT_CHAR2 = 00000008 
10 = 0000000 
UCBS$W_ERRCNT = eee 
K T 00000155 R 02 
VERTICAC_TAB asad ted R 02 
00000318 R 02 
bee ee ee ee me meee ee + 
! Psect synopsis ! 
tate. Sette ee 
PSECT name Allocation PSECT No. Attributes 
- ABS . 00000000 < 00 ( QO.) NOPIC USR ABS 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
OSHR EXE RD WRT NOVEC BYTE 


0.) CON LCL 
. 7) NOPIC USR CON ABS LCLN 
Sere Ff get Es ast Seip Ee bee LCL NOSHR EXE RD WRT NOVEC LONG 


SABSS 
$$$115_DRIVER 00000590 ¢ 925.) 02 ¢ 2.) NOPIC USR 


<- 


a 
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Performance indicators ! 


' 
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Phase Page faults CPU Time Elapsed Time 
Initialization — 0:00:00.47 
Command processing 0:00:01.57 
Pass :Q0: 
Symbol table sort 
P 2 4 

1 

1 

0 

2 


ass 

Symbol table output 
Psect synopsis output 
Cross-reference output g 
Assembler run totals 75 


SOOSSOSDS0S 


foto) 
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The working set Limit was 1800 pages. ; 

86638 bytes (170 pages) of virtual memory were used to buffer the intermediate cede. 

There were 90 pages of symbol table space allocated to hold 1619 non-local and 35 local symbols. 
815 source Lines were read in Pass 1, producing 16 object records in Pass 2. 

19 pages of virtual memory were used to define 18 macros. 


foes een oe we eeceeceeeeonaooaaseoan + 
; Macro Library statistics : 

Macro Library name Macros defined 

-$255$DUA28: CSHRLIBIREM.MLB; 1 0 

.8255$DUA28: CRTPAD.OBJJRTPAD.MLB; 1 2 

-3255$DUA28: (SYS.OBJJLIB.MLB; 1 

$255$DUA28: (CSYSLIBIJSTARLET.MLB;2 8 

TOTALS (all Libraries 11 


1655 GETS were required to define 11 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CTDSENSE/OBJ=OBJ$:CTDSENSE MSRC$:CTDSENSE/UPDATE=(ENHS: CTDSENSE) +EXECML$/L1IB+L1IB$:RTPAD/LIB+SHRLIBS:REM/LIB 


AN 
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CT 
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